﻿Imports Entidades
Public Class frmBorrarClientesPorTipo
    Private lista As New List(Of TipoCliente)
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()

    End Sub

    Private Sub frmBorrarClientesPorTipo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lista = miGestion.obtenerTiposCliente
        For i As Integer = 0 To lista.Count - 1
            cboTipoCliente.Items.Add(lista(i).nombre)
        Next
    End Sub

    Private Sub btnAñadir_Click(sender As Object, e As EventArgs) Handles btnAñadir.Click
        If cboTipoCliente.Text = "" Then
            MessageBox.Show("Selecciona un tipo")
            Exit Sub
        End If
        Dim tipo As TipoCliente = lista(cboTipoCliente.SelectedIndex)
        Dim st As String = miGestion.BorrarClientesPorTipo(tipo)
        If st <> "" Then
            MessageBox.Show(st)
            Exit Sub
        End If
        MessageBox.Show("Clientes del tipo: " & tipo.nombre & " han sido eliminados")
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub
End Class